'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	If source.subject.visible=False Then
		source.director.visible=True
		source.subject.visible=True
		source.date~ purch~ recorded.visible=True
		source.note.visible=True
		source.format.visible=True
		source.length.visible=True
		source.year~ released.visible=True
	Else
		source.director.visible=False
		source.subject.visible=False
		source.subject.visible=False
		source.date~ purch~ recorded.visible=False
		source.note.visible=False
		source.format.visible=False
		source.length.visible=False
		source.year~ released.visible=False
	End If
End Sub